home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 December / Ahoy_Magazine_88-12_1988_Double_L.d64 / Screen Pocus 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  44 lines
  1. 10 sa=49152
  2. 15 print"[147]please wait.........."
  3. 20 fori=satosa+200:reada:pokei,a:ck=ck+a:next
  4. 30 ifck<>26102thenprint"error in data":stop
  5. 50 a=sa+6:b=int(a/256):c=a-b*256:pokesa+1,c
  6. 60 pokesa+2,b
  7. 70 a=sa+51:b=int(a/256):c=a-b*256:pokesa+5,b
  8. 80 pokesa+4,c
  9. 90 load"[208]ocus [196]emo",8:print"run"chr$(13)
  10. 100 data76,6,192,76,51,192
  11. 110 data169,0,141,54,3,141
  12. 120 data55,3,141,56,3,141
  13. 130 data57,3,169,234,141,40
  14. 140 data3,169,249,141,14,212
  15. 150 data169,238,141,15,212,169
  16. 160 data0,141,24,212,169,129
  17. 170 data141,18,212,169,160,141
  18. 180 data136,2,96,162,0,169
  19. 190 data4,133,252,134,253,134
  20. 200 data251,169,160,133,254,165
  21. 210 data1,41,254,133,1,173
  22. 220 data27,212,168,177,251,209
  23. 230 data253,240,54,177,253,145
  24. 240 data251,162,0,189,54,3
  25. 250 data240,7,232,224,4,144
  26. 260 data246,176,85,230,254,230
  27. 270 data252,165,252,201,8,144
  28. 280 data218,169,4,133,252,169
  29. 290 data160,133,254,165,2,141
  30. 300 data52,3,160,25,136,208
  31. 310 data253,206,52,3,208,246
  32. 320 data24,144,192,140,53,3
  33. 330 data173,27,212,201,128,144
  34. 340 data5,169,200,24,144,2
  35. 350 data169,136,141,164,192,172
  36. 360 data53,3,177,251,209,253
  37. 370 data208,173,200,204,53,3
  38. 380 data208,244,165,252,56,233
  39. 390 data4,168,169,1,153,54
  40. 400 data3,24,144,157,169,4
  41. 410 data141,136,2,169,237,141
  42. 420 data40,3,165,1,9,1
  43. 430 data133,1,96
  44.